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SQL> cl scr 



SQL> DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Sal Emp . Sal%TYPE; 

4 CURSOR MyCursor 

5 IS 

6 SELECT Ename, Sal 

7 FROM Emp; 

8 BEGIN 

9 OPEN MyCursor; 

10 FETCH MyCursor INTO V_Ename, V_Sal; 

11 DBMS_OUTPUT.PUT_LINE (V_Ename | | ' ' ' s Salary is $ 'll 

12 FETCH MyCursor INTO V_Ename, V_Sal; 

13 DBMS_OUTPUT.PUT_LINE (V_Ename | | ' ' ' s Salary is 

14 CLOSE MyCursor; 

15 END; 

16 / 

KING'S Salary is $ 5000 
BLAKE's Salary is $ 2850 

PL/SQL procedure successfully completed, l-r' « 




SQL> ED 

Wrote file afiedt.buf 



xXY* 



1 DECLARE 

2 CURSOR MyCursor 

3 IS 

SELECT Ename, Sal _ 

FROM Emp; f 4 ^3+ + +4 ^* 

V_EmpData MvC^^or jRf WTYPE; 

BEGIN 'hrt rH | 

8 OPEN MyCursor; +ST 

9 FETCH MvCi^r\r INTO V_EmpData; 

10 DBMS TiTNF, (V EmnData . Ename I | ' s Salary is $ 

' | | V_EmpDatStfSal) 

11 FETCj.H My\frsor INTO V_EmpData; 

12 ^M3i)UTPUT.PUT_LINE (V_EmpData . Ename | | ' ' 's Salary is $ 

' | |V iS|Xy»-Sal) ; 

1 3 lCL^te MyCursor; 



5Q^ 

[NTs Salary is $ 5000 
IKE's Salary is $ 2850 



PL/SQL procedure successfully completed. 
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SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 CURSOR MyCursor 

3 IS 

4 SELECT Ename, Sal 

5 FROM Emp 

6 ORDER BY Sal; 

7 V_EmpData MyCursor%ROWTYPE; 

8 BEGIN 

9 OPEN MyCursor; 

10 FETCH MyCursor INTO V_EmpData; 

1 1 DBMS_OUTPUT . PUT_LINE (V_EmpData . Ename | | 
' | | V_EmpData . Sal) ; 

12 FETCH MyCursor INTO V_EmpData; 

13 DBMS_OUTPUT . PUT_LINE (V_EmpData . Ename | | 
' | | V_EmpData . Sal ) ; 

14 CLOSE MyCursor; 

15* END; 

SQL> / 

SMITH'S Salary is $ 800 
JAMES's Salary is $ 950 

PL/SQL procedure successfully 



SQL> cl scr 

SQL> ED 
Wrote file 



af iedt . buf 










DECLARE 

V_Ename Emp . ®^ffn£te1 r YPE ; 

V_Sal Emp . Sa 1 % TJ0FE ; 

CURSOR My^n^Eor 

i s i 4 1 1 K t 

SELECT -Bal 

F ROMEmp^tr 

9 AeCjlfcursor; 

10 ijETOH MyCursor INTO V_Ename, V_Sal; 

BSMS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor 
jJ* I fvjfcname | | ' ' ' s Salary is $ ' | | V_Sal ) ; 



ROWCOUNT | | 

is " ' " 

FETCH MyCursor INTO V_Ename, V_Sal; 

DBMS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | | 



| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 
14 FETCH MyCursor INTO V_Ename, V_Sal; 
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15 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

16 FETCH MyCursor INTO V_Ename, V_Sal; 

17 DBMS_OUTPUT . PUT_LINE ( ' Row Number 



| | V_Ename | | ' ' ' s Salary is $ 'll V_Sal ) ; 

18 FETCH MyCursor INTO V_Ename, V_Sal; 

19 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
| |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

20 FETCH MyCursor INTO V_Ename, V_Sal; 

21 DBMS_OUTPUT . PUT_LINE ( ' Row Number 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | 



I | MyCursor%ROWCOUMT | | 



I | MyCursor% 






| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

22 FETCH MyCursor INTO V_Ename, V_Sal; 

23 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
| |V_Ename| | ' ' * s Salary is $ ' | |V_Sal) 

24 FETCH MyCursor INTO V_Ename, V_Sal; 

25 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
| |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

26 FETCH MyCursor INTO V_Ename, V_Sal; 

27 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

28 

29 

I | V_Ename | | ' ' ' s Salary is $ ' | |V_Sa^*ti£(. 

30 FETCH MyCursor INTO V_Ename, V_Sal; + + 

31 DBMS_OUTPUT . PUT_LINE ( ' Row ' | | MyCursor%ROWCOUNT | | 

| | V_Ename | | ' ' ' s Salary is $ ' | ; 

32 FETCH MyCursor INTO V_E ftan^W^S a 1 ; 

33 DBMS OUTPUT .PUT LTNE { ' R^w +fsTiMl^er ' | | MyCursor%ROWCOUNT | | 
| | V_Ename | | ' ' ' s Salary ^s^l^\^fv_Sal ) ; 

34 FETCH MyCursor INTO*C E^ime, V_Sal; 




FETCH MyCursor INTO V_Ename, V_Sal; 
DBMS_OUTPUT . PUT_LINE ( ' Row Number 



I My^uf ^ft^ frOWCOUNT | I 

■ i ' 1 

^V 4 

^ J«irsor%ROWCOUNT | | 



©Cm 



35 DBMS_OUTPUT . PUT 
I | V_Ename | | ' ' ' s Sana 

36 FETCH MyCursobnl 

37 DBMS OUTPUT, PUT 



| | V_Ename | | 
38 CLOSE 
39* END; 
SQL> 7 
Row N^mbfe^ 1 
Row N^O^^ 
Row Bun Ar ' 





alary 




5er 

KoM, Member 
3W Number 
yw Number 
low Number 
Row Number 
Row Number 



10 



’Ww Number ' | 
$ ' | I V_Sal ) 
V_Ename, V_Sal; 
E ( ' Row Number ' | 
is $ ' | | V_Sal ) 



KING'S Salary is $ 5000 
BLAKE's Salary is $ 2850 
CLARK's Salary is $ 2450 
JONES'S Salary is $ 2975 
MARTIN'S Salary is $ 125 
ALLEN's Salary is $ 1600 
TURNER'S Salary is $ 150 
JAMES'S Salary is $ 950 
WARD'S Salary is $ 1250 
FORD'S Salary is $ 3000 



I MyCursor%ROWCOUNT | | 



I MyCursor%ROWCOUNT | | 
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Row Number 
Row Number 
Row Number 
Row Number 



11 

12 

13 

14 



SMITH'S Salary is 
SCOTT's Salary is 
ADAMS's Salary is 
MILLER'S Salary is 



$ 800 
$ 3000 
$ 1100 
$ 1300 



PL/SQL procedure successfully completed. 



SQL> cl scr 



SQL> ED 
Wrote file 



af iedt . buf 



10 

11 




' Row 



Numjper" 1 



DECLARE 

V_Ename Emp . Ename%TYPE; 

V_Sal Emp . Sal%TYPE ; 

CURSOR MyCursor 
IS 

SELECT Ename, Sal 
FROM Emp; 

BEGIN 

OPEN MyCursor; 

FETCH MyCursor INTO V_Ename, 
DBMS_OUTPUT . PUT_LINE ( ’ Row Numbe" 

| |V_Ename| | ' ' 's Salary is $ ' | |V_Sal 

12 FETCH MyCursor INTO V_E n ame^J^bga 1 ; 

13 DBMS_OUTPUT . PUT_LINE ( 

| | V_Ename | | ' ' ' s Salary is 

14 FETCH MyCursor INTO 

15 DBMS_OUTPUT . PUT_LINE^io^^amber 
| | V_Ename | | ' ' ' s Salary $ i + f ' | |V_Sal) 

16 FETCH MyCursor IN^^^B^ame, V_Sal; 

17 DBMS-OUTPUT.Pgf^LINEj^Row Number 
| | V_Ename | | ' ' ' s Sattfryt is $ ' | | V_Sal ) . 

18 FETCH MyCursor Lpfo V_Ename, V_Sal; 

19 DBMS_OUTPyj\uT_LINE ( 'Row Number 

Ename [ rf 1,1 K i 1 a r v is $ ' | |V_Sal) 

FETCH HCulsol INTO V_Ename, V_Sal; 
DBMSOUT^^. p U T _ LINE ( ' Row Number 

I | V 1 ' ' ' s Salary is $ ' | | V_Sal ) 

22 AraWyCursor INTO V_Ename, V_Sal; 

23 |dBmS>__OUTPUT . PUT_LINE ( ' Row Number 
^fj^bfewame | | ' ' ' s Salary is $ ' | | V_Sal ) 
2 f_g ’ETCH MyCursor INTO V_Ename, V_Sal; 

y* DBMS_OUTPUT . PUT_LINE ( ' Row Number 
|V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

26 FETCH MyCursor INTO V_Ename, V_Sal; 

27 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
| |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 




$*^«pi ) 



I |V_ 
20 
21 



Iursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 



MyCursor%ROWCOUNT 
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28 FETCH MyCursor INTO V_Ename, V_Sal; 



29 DBMS_OUTPUT . PUT_LINE ( ' 
1 | | V_Ename | | ' ' ' s Salary is 

30 FETCH MyCursor INTO V_ 

31 DBMS_OUTPUT . PUT_LINE ( ' 
1 | | V_Ename | | ' ' ' s Salary is 



Row Number 
$ ' | I V_Sal ) 
Ename, V_Sal; 
Row Number 
$ ' | | V_Sal) 



32 FETCH MyCursor INTO V_Ename, V_Sal; 



! | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



33 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

34 FETCH MyCursor INTO V_Ename, V_Sal; 

35 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

36 FETCH MyCursor INTO V_Ename, V_Sal; 

37 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

38 FETCH MyCursor INTO V_Ename, V_Sal; 

39 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

40 FETCH MyCursor INTO V_Ename, V_Sal; 

4 1 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | |V_Ename| | ' ' * s Salary is $ ' I |V_Sal) 

42 CLOSE MyCursor; 

43* END; 

SQL> / 

Row Number 
Row Number 
Row Number 
Row Number 
Row Number 
Row Number 
Row Number 
Row Number 
Row Number 
Row Number 
Row Number 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUN 



I | MyCursor%ROWCOUN 
I | MyCurso:^0\OUNT | | 



JNTHlJ/ : 









ROWCOUNT | | 




Row Number [f 
Row Number f-t(^jADAMS 
Row Numb 



Row 

Row 




KING ' s Salary ist t .$( x, 5£00 
BLAKE's Salary 2*€50 

CLARK ' s Salafy i|#tp-2 450 
JONES ' s Sal a^N la^ 2 975 
MARTIN'S Sl4a\ + ls $ 1250 
ALLEN ' s is $ 1600 

TURNER-f^stetMry is $ 150 0 
JAMifs ' s TSf larv is $ 950 
WARft+y 4s a 1 a r y is $ 1250 
ORDLg^Salary is $ 3000 
ITH's Salary is $ 800 

s Salary is $ 3000 

s Salary is $ 1100 

14’V^MILLER' s Salary is $ 130 0 



10 

11 



MILLER 1 

MILLER 1 



Salary 

Salary 



is 

is 



1300 

1300 



rocedure successfully completed. 



scr 



Wrote file afiedt.buf 
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I MyCursor%ROWCOUNl 



| MyCursor%ROWCOUN j 



I MyCurso^^^^OUNT 

I jC^ROWCOUNT 
| M§Cursor%ROWCOUNT 



1 DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Sal Emp. Sal%TYPE; 

4 CURSOR MyCursor 

5 IS 

6 SELECT Ename, Sal 

7 FROM Emp; 

8 BEGIN 

9 — OPEN MyCursor; 

10 FETCH MyCursor INTO V_Ename, V_Sal; 

11 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | 

| | V_Ename | | ' ' ' s Salary is $ 'll V_Sal ) ; 

12 FETCH MyCursor INTO V_Ename, V_Sal; 

13 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

14 FETCH MyCursor INTO V_Ename, V_Sal; 

15 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

16 FETCH MyCursor INTO V_Ename, V_Sal; 

17 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

18 FETCH MyCursor INTO V_Ename, V_Sat; 

1 9 DBMS_OUTPUT . PUT_LINE ( ' Row Numbe?-Ht|L 
| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

20 FETCH MyCursor INTO V_Enam^ f^igal ; 

2 1 DBMS_OUTPUT . PUT_LINE ( ' Row BafflfceN' ' | 

1 | V_Ename | | ' ' ' s Salary is $♦/ |:y^H£^l ) ; 

22 FETCH MyCursor INTO V Ej|3% r.JV S a 1 ; 

23 DBMS_OUTPUT.PUT_LINE (^Oj^timber ' | | MyCursor%ROWCOUNT 

| |V_Ename | | ' ' ' s Salary I |V_Sal) ; 

2 4 FETCH MyCursor IN^Ci^l^ame, V_Sal; 

25 DBMS-OUTPUT.Pgf^LINE^Row Number ’ | | MyCursor%ROWCOUNT 

| | V_Ename | | ' ' ' s S is $ ' | | V_Sal ) ; 

26 FETCH MyCursor Iipfo V_Ename, V_Sal; 

27 DBMS_OUTPy,r\uT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT 

| | V_ Ename | rf : 1,1 K , 1 ary is $ ' ] |V_Sal) ; 

28 FETCH t^KuJso? INTO V_Ename, V_Sal; 

29 DBMj_J)UTPW.PUT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT 
I | V_Cns^^| 1 ' ' ' s Salary is $ ' | | V_Sal ) ; 

30 AmrfyCursor INTO V_Ename, V_Sal; 

31 CdBmS^OUTPUT . PUT_LINE ( ' R ow Number ' | | MyCursor%ROWCOUNT 
.|.'f^/fewame | | ' ' ' s Salary is $ ' | |V_Sal) ; 

3 |~ f frETCH MyCursor INTO V_Ename, V_Sal; 

°3 W DBMS_OUTPUT.PUT_LINE ( 'Row Number '| | MyCursor%ROWCOUNT 
| V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

34 FETCH MyCursor INTO V_Ename, V_Sal; 

35 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT 
| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 




I MyCursor%ROWCOUNT 
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36 FETCH MyCursor INTO V_Ename, V_Sal; 

37 DBMS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | | 
1 | | V_Ename | | ' ' ' s Salary is $ 'll V_Sal ) ; 

38 FETCH MyCursor INTO V_Ename, V_Sal; 

39 DBMS_OUTPUT . PUT_LINE ( ' Row Number '| | MyCursor%ROWCOUNT | | 



' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

40 FETCH MyCursor INTO V_Ename, V_Sal; 

41 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

42 CLOSE MyCursor; 

43* END; 

SQL> / 

DECLARE 

ERROR at line 1: 

ORA-01001: invalid cursor 
ORA-06512: at line 10 



I | MyCursor%ROWCOUNT | | 



SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Sal Emp . Sal%TYPE ; 

4 CURSOR MyCursor 

5 IS 

6 SELECT Ename, Sal 

7 FROM Emp; 

8 BEGIN 

9 OPEN MyCursor; 







10 

11 



FETCH MyCurso j 
DBMS OUTPUT. PI 



.Sal; 



G 



TSTfl Ename, V 
( ' Row Number 

I | V_Ename | | ' ' 'SiSala^ is $ ' | |V_Sal) 

12 FETCH MvCi^r^r INTO V_Ename, V_Sal; 

13 DBMS_Q^fr| f uf. t -9UT_LINE ( 'Row Number 
' | | V_Ename | fifr'sj Sa'lary is $ ' | |V_Sal) 

14 FETCH MyMsor INTO V_Ename, V_Sal; 

15 «B^buTPUT . PUT_LINE ( ' Row Number 

' 1 ' ' ' s Salary is $ ' | |V_Sal) 

16 IFETOi MyCursor INTO V_Ename, V_Sal; 

BfiMS_OUTPUT . PUT_LINE ( ' Row Number 
| fv^ fcname | | ' ' ' s Salary is $ ' | | V_Sal ) 
/taiT 1 FETCH MyCursor INTO V_Ename, V_Sal; 
\ T9 DBMS_OUTPUT . PUT_LINE ( ' Row Number 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



1 | |V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

20 FETCH MyCursor INTO V_Ename, V_Sal; 
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2 1 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | ! V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

22 FETCH MyCursor INTO V_Ename, V_Sal; 

23 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | ! V_Ename | | ' ' ' s Salary is $ 'll V_Sal ) ; 

24 FETCH MyCursor INTO V_Ename, V_Sal; 

25 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | | V_Ename | | ' ' ' s Salary is $ ' | |V_Sal) 

26 FETCH MyCursor INTO V_Ename, V_Sal; 

27 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

28 FETCH MyCursor INTO V_Ename, V_Sal; 

29 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) 

30 FETCH MyCursor INTO V_Ename, V_Sal; 

31 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | | V_Ename | | ' ' ' s Salary is $ ' | |V_Sal) 

32 FETCH MyCursor INTO V_Ename, V_Sal; 

33 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | I V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

34 CLOSE MyCursor; 

35 FETCH MyCursor INTO V_Ename, V_Sat; 
3 6 DBMS_OUTPUT . PUT_LINE ( ' Row Numbe^-H$|L 

1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

37 FETCH MyCursor INTO V_Enam# t f^igal ; 

38 DBMS_OUTPUT.PUT_LINE ( 'Row Boiler-* ' I 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor% 




I M^Cu#Sh|%koWCC>UNT | I 
| MyCursor %ROWCOUNT | | 



I MyCursor%ROWCOUNT | | 



I | V_Ename | | ' ' ' s Salary is $ + i I |Tj,$£563l ) ; 

39 FETCH MyCursor INTO V Tpfa rhp Sal; 

40 DBMS_OUTPUT . PUT_LINE^^^^timber ' | | MyCursor%ROWCOUNT | | 
| |V_Ename | | ' ' ' s Salary $ i + < ! | |V_Sal) ; 

41 FETCH MyCursor IN^^Nrfiame, V_Sal; 

" LI NEJ^ Row Number ' | | MyCursor%ROWCOUNT | | 

s Sitrfyt is $ ' I I V_Sal ) ; 



FETCH MyCursor 

42 DBMS_OUTPUT . P 
' I I V_Ename II''' 

43 CLOSE MyCursor; 

44* END; \ 

sql> / 

Number rtf :JK 




I#G' 



s Salary is $ 5000 
BLAKE's Salary is $ 2850 
CLARK's Salary is $ 2450 
JONES's Salary is $ 2975 
MARTIN'S Salary is $ 125 
ALLEN's Salary is $ 1600 
TURNER'S Salary is $ 150 
JAMES's Salary is $ 950 
WARD'S Salary is $ 1250 
FORD'S Salary is $ 3000 
SMITH'S Salary is $ 800 
SCOTT's Salary is $ 3000 
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DECLARE 

ERROR at line 1: 
ORA-OlOOl: invalid cursor 
ORA-06512: at line 35 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Sal Emp. Sal%TYPE; 

4 CURSOR MyCursor 

5 IS 

6 SELECT Ename, Sal 

7 FROM Emp; 

8 BEGIN 

9 OPEN MyCursor; 

10 FETCH MyCursor INTO V_Ename, V_Sal; 

11 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ^ 

12 FETCH MyCursor INTO V_Ename, vJ5w|l 

13 DBMS_OUTPUT . PUT_LINE ( ' Row Number ' f 
' | | V_Ename | | ' ' ' s Salary is $ ' | l^iS^l ) ; 

14 FETCH MyCursor INTO V_Enama,\ Sal; 

15 DBMS_OUTPUT . PUT_LINE ( ' R®w Cj**!fc£r ' | 

' | | V_Ename | | ' ' ' s Salary i^ & VttSal ) ; 

16 FETCH MyCursor INTO, V^fna^, V_Sal; 



17 DBMS_OUTPUT.PUT_LIN^JI%^ Number ' | | MyCursor%ROWCOUNT 
I | V_Ename | | ' ' ' s Salary^J(^ + 4 c * ' I |V_Sal) ; 

18 FETCH MyCursoj^INT g V Ename, V_Sal; 

19 DBMS_OUTPUT.POTr£fimE ( 'Row Number ' | | MyCursor%ROWCOUNT 
I | V_Ename II''' s^Sala^y is $ ' | | V_Sal ) ; 

20 FETCH MyCi^jrsfcr INTO V_Ename, V_Sal; 

21 DBMS_q^Lj?'?WT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT 

I | V_Ename | Salary is $ ' | |V_Sal) ; 

22 FETffl MyMsor INTO V_Ename, V_Sal; 

23 «B^buTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT 
1 |v Ar^ ' ' ' s Salary is $ ' | |V_Sal) ; 

24 tFET^H MyCursor INTO V_Ename, V_Sal; 

BSHS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT 
name | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

FETCH MyCursor INTO V_Ename, V_Sal; 

DBMS_OUTPUT . PUT_LINE ( ' Row Number '| 

| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

FETCH MyCursor INTO V_Ename, V_Sal; 




U>fc(W%or%ROWCOUNT 
V^yCur so r%ROWCOUNT 
I MyCursor%ROWCOUNT 




I MyCursor%ROWCOUNT 
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2 9 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | |V_Ename| | ' ' 's Salary is $ ' | |V_Sal) 

30 

31 



FETCH MyCursor INTO V_Ename, V_Sal; 



I | MyCursor%ROWCOUNT | | 



DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | !V_Ename| | ' ' ' s Salary is $ ' | |V_Sal) 

32 FETCH MyCursor INTO V_Ename, V_Sal; 

33 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
1 | | V_Ename | | ' ' * s Salary is $ ' | |V_Sal) 

34 CLOSE MyCursor; 

35 CLOSE MyCursor; 

36* END; 



KING'S Salary is $ 5000 
BLAKE's Salary is $ 2850 
CLARK's Salary is $ 2450 
JONES'S Salary is $ 2975 
MARTIN'S Salary is $ 1250 
ALLEN's Salary is $ 1600 
TURNER'S Salary is $ 1500 
JAMES'S Salary is $ 950 



I | MyCursor%ROWCOUNT | | 



! | MyCursor%ROWCOUNT | | 



SQL> / 




Row 


Number 


1 


Row 


Number 


2 


Row 


Number 


3 


Row 


Number 


4 


Row 


Number 


5 


Row 


Number 


6 


Row 


Number 


7 


Row 


Number 


8 


Row 


Number 


9 


Row 


Number 


10 


Row 


Number 


11 


Row 


Number 


12 


DECLARE 





WARD’S Salary is $ 12 50 

30 0*9 y , 

SMITH ' s Salary is $ 




FORD's Salary is $ 



SCOTT's Salary is $ 



3 0o\ 



ERROR at line 1: 
ORA-01001: invalid cursor 
ORA-06512: at line 35 




SQL> cl scr 

SQL> ED a 

Wrote file af i^dt\ 






50 



- _..buf 

DECLARE# 1 » 

V E nam e . Ename%TYPE ; 

Emp.Sal%TYPE; 
MyCursor 



lECT Ename, Sal 



1 
2 

3 

4 

O lf t> R0M Emp; 

18^ BEGIN 

^9 OPEN MyCursor; 

10 FETCH MyCursor INTO V_Ename, V_Sal; 

11 DBMS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | | 
' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 
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12 FETCH MyCursor INTO V_Ename, V_Sal; 

13 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

14 FETCH MyCursor INTO V_Ename, V_Sal; 

15 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

16 FETCH MyCursor INTO V_Ename, V_Sal; 

17 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

18 OPEN MyCursor; 

19 FETCH MyCursor INTO V_Ename, V_Sal; 

20 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

21 FETCH MyCursor INTO V_Ename, V_Sal; 

22 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

23 FETCH MyCursor INTO V_Ename, V_Sal; 

24 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 
1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

25 FETCH MyCursor INTO V_Ename, V_Sal; 

26 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

1 | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) % 



I MyCursor%ROWCOUNT | | ' 

I MyCursor%ROWCOUNT | | ' 

I MyCursor%ROWCOUNT | | ' 

| MyCursor%ROWCOlM']^if rH t : 

I MyCursor|RO|5^NT | H*' : 








SftROWC 



| MyCuraoSfeRC^JCOUNT | 



6^r%or%ROWCOUNT | 
>MyCursor%ROWCOUNT | 



27 FETCH MyCursor INTO V_Ename, VjStenfcf. 

28 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | 

1 | ! V_Ename | | ' ' ' s Salary is $ ' | ) ; 

2 9 FETCH MyCursor INTO V_Enama f \ 3a 1; 

30 DBMS_OUTPUT . PUT_LINE ( ' R®w CjpfBfc^r ' | | MyCursor%ROWCOUNT | 
I | V_Ename | | ' ' ' s Salary isj, ja, | ^ ^F\fcrSal ) ; 



31 FETCH MyCursor INTO, yl|nlj.e. V_Sal; 



+iT* 'a- 

OUTPUT . PUT_LINSy' R\z Number ' | 

1 1 1 _ m - 



I MyCursor%ROWCOUNT | 



32 DBMS. 

1 | | V_Ename | | ' ' ' s Salar^J^ + -^c* ' | | V_Sal ) ; 

33 FETCH MyCursorf j4 iNT(|^_Ename, V_Sal; 

34 DBMS_OUTPUT . PtWCm[E ( ' Row Number ' | | MyCursor%ROWCOUNT | 
1 | | V_Ename II''' s^Sala^y is $ ' | | V_Sal ) ; 

35 CLOSE MvC ^s^r; 

36 FETCH ^y|^r5% INTO V_Ename, V_Sal; 

37 DBMS_O0^Ul.PM'_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT | 
1 | | V Ena me l I '"^S's Salary is $ ' | |V_Sal) ; 

38 MyCursor INTO V_Ename, V_Sal; 

3 9 D&j^^CTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | 
1 | | VtEna^e | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

|<6f3»efCH MyCursor INTO V_Ename, V_Sal; 

M Q bBMS_OUTPUT . PUT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT | 
y I \T_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 
h FETCH MyCursor INTO V_Ename, V_Sal; 

43 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT | 
| | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

44 CLOSE MyCursor; 
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45* END; 
SQL> / 

Row Number 
Row Number 
Row Number 
Row Number 
DECLARE 



KING'S Salary is 
BLAKE's Salary is 
CLARK's Salary is 
JONES's Salary is 



$ 5000 
$ 2850 
$ 2450 
$ 2975 



ERROR at line 1: 



ORA- 06511 
ORA- 06512 
ORA-06512 



SQL> ED 
Wrote file 



PL/SQL: 
at line 
at line 



cursor 

6 

18 



already 



af iedt . buf 



10 

11 



DECLARE 

V_Ename Emp . Ename%TYPE; 

V_Sal Emp . Sal%TYPE ; 

CURSOR MyCursor 
IS 

SELECT Ename, Sal 
FROM Emp; 

BEGIN + + 

OPEN MyCursor; 

FETCH MyCursor INTO V_Eftam^+r^Sal ; 




DBMS_OUTPUT . PUT T.TNE Rqw +^iMWoer 
' | | V_Ename | | ' ' ' s Salary ^s t l|/Vfv_Sal ) ; 

12 FETCH MyCursor INTO^C E^me, V_Sal; 

13 DBMS_OUTPUT . PUT L|fou%6w Number 
' | | V_Ename | | ' ' ' s S ^ a ry fif $ 'll V_Sal ) 

14 FETCH MyCursortii!rap V_Ename, V_Sal; 

15 DBMS_OUTPUT*PUT_*fNE ( 'Row Number 
' | |V_Ename| | ' ' ^ Salary is $ ' | |V_Sal) 

16 FETCH ^y|^L£5or INTO V_Ename, V_Sal; 

17 DBMS_OOT^OT.POT_LINE ( ' 

' | |V_Enamg j | | ' h#? Salary is 

18 CLcj^MyCursor; 

19 %ilyCursor ; 

20 ^ETOH MyCursor INTO V_Ename, V_Sal; 

{+ Bfi«S_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | | 

| fvj fcname | | ' ' ' s Salary is $ ' | | V_Sal ) ; 
rd//* FETCH MyCursor INTO V_Ename, V_Sal; 

, 1 Z3 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT | | 

| | V_Ename | | ' ' ' s Salary is $ ' | |V_Sal) ; 

24 FETCH MyCursor INTO V_Ename, V_Sal; 



'Row Number 
$ ' | I V_Sal ) 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 



I | MyCursor%ROWCOUNT | | 
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25 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

26 FETCH MyCursor INTO V_Ename, V_Sal; 

27 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

28 FETCH MyCursor INTO V_Ename, V_Sal; 

29 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

30 FETCH MyCursor INTO V_Ename, V_Sal; 

31 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

32 FETCH MyCursor INTO V_Ename, V_Sal; 

33 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

34 FETCH MyCursor INTO V_Ename, V_Sal; 

35 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

36 CLOSE MyCursor; 

37 FETCH MyCursor INTO V_Ename, V_Sal; 

38 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

39 FETCH MyCursor INTO V_Ename, V_Sai; 
4 0 DBMS_OUTPUT . PUT_LINE ( ' Row Numbe'?**** 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

41 FETCH MyCursor INTO V_E name^ 4^S al ; 

42 DBMS_OUTPUT . PUT_LINE ( ' Row NufflbeN ' | 

' | | V_Ename | | ' ' ' s Salary is $♦' ; 

43 FETCH MyCursor INTO V S a 1 ; 

44 DBMS_OUTPUT . PUT_LINE^^^Ttamber ' | 

' | |V_Ename | | ' ' ' s Salary | |V_Sal) ; 

45 CLOSE MyCursor,^ 

46* END; 

SQL> / 

Row Number 1 : KING alary is $ 5000 

Number 2 ^j^AKE ' s Salary is $ 2850 
Number ^3* ' t^_J?fi&RK ' s Salary is $ 2450 
Number it^TjJOrfES ' s Salary is $ 2 975 
+ +T KING'S Salary is $ 5000 
: BLAKE's Salary is $ 2850 
: CLARK's Salary is $ 2450 
: JONES's Salary is $ 2975 
: MARTIN'S Salary is $ 125 
ALLEN's Salary is $ 1600 
TURNER'S Salary is $ 1500 
JAMES'S Salary is $ 950 



MyCursor%ROWCOUNT | | 



MyCursor%ROWCOUNT | | 



MyCursor%ROWCOUNT | | 





MyCursor%ROWCOUNT | 



MyCursor%ROWCOU13T | | 



MyCursor%So|cd\jT I | 



!%£' %J^%ROWCOUNT I | 



V 



' N^Cursor%ROWCOUNT | | 



MyCursor%ROWCOUNT | | 



MyCursor%ROWCOUNT | | 



’s S 




0 



ERROR at line 1: 
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ORA-OlOOl: invalid cursor 
ORA-06512: at line 37 



SQL> ED 

Wrote file afiedt.buf 

1 DECLARE 

2 V_Ename Emp . Ename%TYPE; 

3 V_Sal Emp . Sal%TYPE ; 

4 CURSOR MyCursor 

5 IS 

6 SELECT Ename, Sal 

7 FROM Emp; 

8 BEGIN 

9 OPEN MyCursor; 

10 FETCH MyCursor INTO V_Ename, V_Sal; 

11 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

12 FETCH MyCursor INTO V_Ename, V_Sal; 

13 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) % 

14 FETCH MyCursor INTO V_Ename, VjStaifcf. 

15 DBMS_OUTPUT . PUT_LINE ( ' Row Number ' f 

' | | V_Ename | | ' ' ' s Salary is $ ' | ; 

16 FETCH MyCursor INTO V_Enama,% §kl; 

ATTmnTTm T>TTm t t-ktt-i / I t^A_ . St hj~ . ■ I 




^S^Sor%ROWCOUNT 
V^yCur so r%ROWCOUNT 






17 DBMS_OUTPUT . PUT_LINE ( ' Rfts Ijrtper ' | | MyCursor%ROWCOUNT 
' | | V_Ename | | ' ' ' s Salary ig_ , f j^VjjSal ) ; 

18 CLOSE MyCursor; 

19 OPEN MyCursor; 

2 0 FETCH MyCursor IN^O^B?iame, V_Sal; 

21 DBMS_OUTPUT.P^TlINEJ i 'Row Number ' | | MyCursor%ROWCOUNT 
' | | V_Ename | | ' ' ' s Sa±tfr|| is $ ' | | V_Sal ) ; 

22 FETCH MyCursor I#TO V_Ename, V_Sal; 

23 DBMS_OUTPI4j\uT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT 
' | | V Ename | rf 1 ' 1 1 ary is $ ' ] |V_Sal) ; 

2 4 FETCH M^puSs or* INTO V_Ename, V_Sal; 

25 DBMS OUTM.PUT_LINE ('Row Number ' | | MyCursor%ROWCOUNT 
' I I V_<Cn*i^| I ' ' ' s Salary is $ ' | | V_Sal ) ; 

2 6 AraylyCursor INTO V_Ename, V_Sal; 

27 CdBmS^OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT 

O ' pfj^bfeiKftme | | ' ' ' s Salary is $ ' | |V_Sal) ; 

1 |* 2 Cj »ETCH MyCursor INTO V_Ename, V_Sal; 

^9*^ DBMS_OUTPUT . PUT_LINE ( ' Row Number '| | MyCursor%ROWCOUNT 
' rl V_Ename | | ' ' ' s Salary is $ ' I I V_Sal ) ; 

30 FETCH MyCursor INTO V_Ename, V_Sal; 

31 DBMS_OUTPUT.PUT_LINE ( 'Row Number ' | | MyCursor%ROWCOUNT 
' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 
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32 FETCH MyCursor INTO V_Ename, V_Sal; 

33 DBMS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | | 
' | | V_Ename | | ' ' ' s Salary is $ 'll V_Sal ) ; 

34 FETCH MyCursor INTO V_Ename, V_Sal; 

35 DBMS_OUTPUT . PUT_LINE ( ' Row Number ' | | MyCursor%ROWCOUNT | | 
' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

36 CLOSE MyCursor; 

37 OPEN MyCursor; 

38 FETCH MyCursor INTO V_Ename, V_Sal; 



39 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

40 FETCH MyCursor INTO V_Ename, V_Sal; 

41 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

42 FETCH MyCursor INTO V_Ename, V_Sal; 

43 DBMS_OUTPUT . PUT_LINE ( ' Row Number 
' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

44 FETCH MyCursor INTO V_Ename, V_Sal; 

45 DBMS_OUTPUT.PUT_LINE ( 'Row Number '| 

' | | V_Ename | | ' ' ' s Salary is $ ' | | V_Sal ) ; 

46 CLOSE MyCursor; 

47* END; % 

SQL> / 

KING'S Salary is $ 5000^ 
BLAKE's Salary i%|^^2850 
CLARK ' s Salary 2*^50 

JONES ' s Salafy ^^1^2 975 
KING'S Salapy jfce & 5000 
BLAKE's SaMry^rfe $ 2 850 
CLARK's ^£la^y is $ 2450 
JONES 'f#fcl¥£y is $ 2 975 
MARTIN ' Q klary is $ 125 
ALLEB#3 _t jS alary is $ 1600 
TURNER##" Salary is $ 1500 
^JWES's Salary is $ 950 
Row Number _|£* ' LkA ' s Salary is $ 5000 
Row Number St^fjlLAM; ' s Salary is $ 2850 
Row Number 3 1+tCLARK's Salary is $ 2450 
Row N^mtfep' 4 : JONES ' s Salary is $ 2975 



I | MyCursor%ROWCOUNT | 



I | MyCursor%ROWCOUNT | | 



| | MyCursor%! kiTT | | 




I My«u/SK|koWCOUNT | | 



£ 



1 i 






Row Number 1 
Row Number 2 
Row Number 3 
Row Number 4 
Row Number 1 
Row Number 2 
Row Number 3 
Row Number 4 
Row Number 5 
Row Number 6 
Row Number 7 



0 



Row Number 8 






O 



PL/ SQL procedure successfully completed. 

9}l 



Q %P 1 scr 



> DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 
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5 FROM Emp; 

6 V_EmpData EmpCursor%ROWTYPE; 

7 BEGIN 

8 OPEN EmpCursor; 

9 LOOP 

FETCH EmpCursor INTO V_EmpData; 

EXIT WHEN EmpCursor%NOTFOUND ; 
DBMS_OUTPUT . PUT_LINE ( V_EmpData . Ename) 
END LOOP; 

CLOSE EmpCursor; 

END; 



/ 



10 

11 

12 

13 

14 

15 

16 
KING 
BLAKE 
CLARK 
JONES 
MARTIN 
ALLEN 
TURNER 
JAMES 
WARD 
FORD 
SMITH 
SCOTT 
ADAMS 
MILLER 



PL/SQL procedure successf 



SQL> DECLARE 

2 CURSOR EmpCur 

3 IS 

4 SELECT * 

5 FROM Emp; a 

6 V_EmpData^mb 

7 BEGIN 

8 OPEN EfflCulsol; 

9 LOOP 

jr EmpCursor 
Mm fjTPUT.PUT 



Z3> 



# 




eted. 



Cursor%ROWTYPE ; 



10 

11 






INTO V_EmpData; 

LINE (' Record Number 

I | vfempllata . Ename ) ; 
ifVWiCT WHEN EmpCur sor%NOTFOUND ; 

^fl f j feND LOOP; 
bV^^CLOSE EmpCursor; 

| r5 END; 



| | EmpCur sor%ROWCOUNT | | 



% r5 
16 / 

Record Number 
Record Number 



KING 

BLAKE 
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PL/SQL 

SQL> ED 
Wrote file 



Number 


3 CLARK 


Number 


4 JONES 


Number 


5 MARTIN 


Number 


6 ALLEN 


Number 


7 TURNER 


Number 


8 JAMES 


Number 


9 WARD 


Number 


10 FORD 


Number 


11 SMITH 


Number 


12 SCOTT 


Number 


13 ADAMS 


Number 


14 MILLER 


Number 


14 MILLER 


procedure successfully completed 



af iedt . buf 



DECLARE 

CURSOR EmpCursor 
IS 

SELECT * 

FROM Emp; 

V_EmpData EmpCursor %ROWTYPE^ (\ 




BEGIN 



8 OPEN EmpCursor; 

9 LOOP 

10 EXIT WHEN 

11 FETCH EmpCursor 

12 DBMS_OUTPUT . PUT 
' I I V_EmpData . Ename 

13 END LOOP; 

14 CLOSE EmpCurs 

15* END; \ 

SQL> / 

Record NumbetfYll f?ING 









EmpCursorJ^^^^^) ; 

INTd+yJs*npData; 

cord Number 




| | EmpCursor %ROWCOUNT | | 



1 



Record 

Record 



er 

Recor^Mthabifer 

Recofd NBmber 
R^%^<MWumb e r 
Jkeqpjl^l Number 

1 1 Ii , »i Record Number 

cord Number 
ecord Number 
Record Number 
Record Number 




BLAKE 

3 CLARK 

4 JONES 

5 MARTIN 

6 ALLEN 

7 TURNER 

8 JAMES 

9 WARD 

10 FORD 

11 SMITH 

12 SCOTT 
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Record Number 
Record Number 
Record Number 



13 

14 
14 



ADAMS 

MILLER 

MILLER 



PL/SQL procedure successfully completed. 



SQL> ED 
Wrote file 



af iedt . buf 



1 DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp; 

6 V_EmpData EmpCursor%ROWTYPE; 

7 BEGIN 

8 OPEN EmpCursor; 

9 LOOP 

10 FETCH EmpCursor INTO V_EmpData; 

11 EXIT WHEN EmpCursor%NOTFOUND; 

12 DBMS_OUTPUT.PUT_LINE ( 'Record Number 
| | V_EmpData . Ename ) ; 

13 END LOOP; 

14 CLOSE EmpCursor; 

15* END; 



SQL> / 

Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record Number 
Record N 



1 KING 

2 BLAKE ^ 

3 CLARK + 

4 JONES 

5 M^Tffef Ax* 

6 

| JAM**? 

\ WARD 




pCursor%ROWCOUNT | | 



umtrfft^4_FORD 

Record NumbJtfTjll ■'SMITH 
Record Number + 1T12 SCOTT 
Record tigfcjr : 13 ADAMS 
RecomTO^ 






14 MILLER 



cs 



P|^€C»rprocedure successfully completed. 

i£> 



S Q] 



L> cl scr 



QL> ED 
Wrote file afiedt.buf 
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1 DECLARE 

2 V_Ename Emp . Ename% TYPE; 

3 V_Sal Emp . Sal%TYPE; 

4 V_RowCount PLS_INTEGER := 0; 

5 CURSOR EmpRowCount 

6 IS 

7 SELECT Ename, Sal 

8 FROM Emp 

9 ORDER BY Ename; 

10 BEGIN 

11 OPEN EMPROWCOUNT; 

12 LOOP 

13 FETCH EmpRowCount INTO V_Ename, 

14 EXIT WHEN EmpRowCount%NOTFOUND; 

15 V_RoWCount := EmpRoWCount %ROWCOUNT ; 

1 6 DBMS_OUTPUT . PUT_LINE ( ' Employee Name 
' I I V_Sal) ; 

17 END LOOP; 

1 8 DBMS_OUTPUT . PUT_LINE (V_RowCount | | 

19 CLOSE EmpRowCount; 

20* END; 

SQL> / 

Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Name 
Employee Nape 
14 Rows Pro 



ADAMS, 

ALLEN, 

BLAKE, 

CLARK, 

FORD, 



Salary 

Salary 

Salary 

Salary 

Salary^ 




JAMES , Salary % 
JONES, S^S^y\ + -2 975 
KING, Sal^ryHy- 
MARTIN/^aMry 
Mljp ER. |si *Iarv 
S C OTrfvjS a 1 a r y 
SMI TH^r Salary 
■\lRNER, Salary 
D, Salary : 

Far . . . 




Salary : 



5000 
: 1250 
: 1300 
3000 
800 

: 1500 
1250 



PL/SQt mr|?cedure successfully completed. 



+ + 4, , , j 



SQL>£eD 7*4 
WyBj^+ftfie af iedt . buf 



o 



u 






DECLARE 

V_Ename Emp . Ename% TYPE; 
V_Sal Emp . Sal%TYPE; 
V_RowCount PLS_INTEGER := 0; 
CURSOR EmpRowCount 
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6 IS 

7 SELECT Ename, Sal 

8 FROM Emp 

9 ORDER BY Ename; 

BEGIN 

OPEN EMPROWCOUNT; 

LOOP 

FETCH EmpRowCount INTO V_Ename, 

EXIT WHEN EmpRowCount%NOTFOUND ; 

— V_RoWCount := EmpRoWCount%ROWCOUNT; 
DBMS_OUTPUT.PUT_LINE ( 'Employee Name : 

Sal) ; 

END LOOP; 

DBMS_OUTPUT . PUT_LINE ( EmpRoWCount %ROWCOUNT | | 

. ; 

CLOSE EmpRowCount; 

END; 



/ 



10 
11 
12 

13 

14 

15 

16 

'IIV 

17 

18 

Far . 

19 
20 * 

SQL> 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 
Employee 



| | V_Ename | | 



Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 

Name 



ADAMS, 

ALLEN, 

BLAKE, 

CLARK, 

FORD, 



Salary 
Salary 
Salary 
Salary 
Salary : 



Salary : 

Salary : 

• jaJDOTj) V-> 



% 



JAMES, 

JONES, 

KING, Salary 
MARTIN, Salafy ^ 
MILLER, S^ Jkfcv Vjl 
SCOTT, SjLltt£yV + '3000 
SMITH, Satr^ : 800 
TURNER/^alSity : 1500 
WAgD) .SCLjPry : 1250 




00 



O 



u 





14 Rows Processed 

PL/SQL proceduj^ fuccessf ully completed. 
SQL> cl sc 4 



SQL> 

Wrote./Bi Jai-Af iedt . but 



rfj^>figLARE 

C jfeURSOR EmpCursor 

y* is 

4 SELECT * 

5 FROM Emp; 

6 V_EmpData EmpCursor%ROWTYPE; 

7 BEGIN 
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8 OPEN EmpCursor; 

9 DBMS_OUTPUT . PUT_LINE ( ' The Details of Employees in Your Organization 
are as Follows'); 

10 DBMS_OUTPUT . PUT_LINE ( ' 

. j . 

11 DBMS_OUTPUT . PUT_LINE ( ' Name ' | | ' Designation 

Basic Salary 'll' Annual Salary ' ) ; 

12 DBMS_OUTPUT . PUT_LINE ( ' '|| 

- | | - - ) ; 

13 LOOP 

14 FETCH EmpCursor INTO V_EmpData; 

15 EXIT WHEN EmpCur sor%NOTFOUND ; 

16 

12) | | LPAD (V_EmpData. Sal, 10) | | LPAD (V_EmpData . Sal * 1 %, 2 

17 END LOOP; 

18 CLOSE EmpCursor; 

19* END; t l+ V 4: 

s ql> / Ap 

The Details of Employees in Your Organizati\nv^^ as Follows 



J 




DBMS_OUTPUT . PUT_LINE (RPAD ( V_EmpData . Ename , 12) | | RPA%(V_5jif>Data . Job, 









Name 

KING 

BLAKE 

CLARK 

JONES 

MARTIN 

ALLEN 

TURNER 

JAMES 

WARD 

FORD 

SMITH 

SCOTT 

ADAMS 

MILLER 



Designation 

PRESIDENT 

MANAGER 

MANAGER 

MANAGER 

SALESMAN 

SALESMAN 

SALESMAN 

CLERK 



x ■++ 

Basic Sa‘. aaa*\ 

% 



5000 
2850 

IMS 



As 



950 






SALESMAN 1250 

ANALYSl^ CV 3000 



CLERK Xt* 4-1 }: 
ANALYST 
CLERK. 



J 




m 



> 



\ 



800 

3000 

1100 

1300 



Annual Salary 

60000 

34200 

29400 

35700 

15000 

19200 

18000 

11400 

15000 

36000 

9600 

36000 

13200 

15600 



PL/SQL pmcedwl successfully completed. 



SQL> c±+ + S, 



o 



^r{tr file afiedt.buf 

X 



DECLARE 

2 V_RowCount NUMBER (4); 

3 CURSOR EmpCursor 

4 IS 



SkyEss Techno Solutions Pvt. Ltd. 

Flat No. 201, II Floor, Abhilash Towers, BK Guda, Hyderabad - 500 038 
Ph No. +9140 23710047, 64640047, Mobile: 9985798869 
Contact For Courses And Training in 

Oracle Developer Suite 10g(D2K), Oracle Apps R12, Live Projects in SQL and PL/SQL, Data 

Modeling, Linux/Unix 

Follow Me: https://www.facebook.com/satishkumar.yellanki 



Spool File For Oracle Students Trained by Mr.Sathish Yellanki 



5 SELECT * 

6 FROM Emp; 

7 V_EmpData EmpCursor%ROWTYPE; U+, 

8 BEGIN ,, 

9 OPEN EmpCursor; -) | \ 

10 DBMS_OUTPUT.PUT_LINE (RPAD ( 'Employees Information', 80)); +. pH 

11 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 80,'-')); // 

12 DBMS_OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8 )|| RPAD ( ' Ename ' , jX / 

12) | | RPAD ( 'Job' , 12)| | RPAD ( ' Deptno ' , 8 ) | | RPAD ( ' Mgr ' , ' 

10) M RPAD ( ' Hiredate ' , 12) | | RPAD ( ' Sal ' , 12) ! | RPAD (' Comm' , 10)fxl 4 +^ 

13 DBMS_OUTPUT.PUT_LINE (RPAD ( '-' , 8 0,'-')); 

14 LOOP Pn+ I+i l 

15 FETCH EmpCursor INTO V_EmpData; \ 

16 EXIT WHEN EmpCur sor%NOTFOUND ; * 

17 V_RoWCount := EmpCur sor%ROWCOUNT ; j. % + 

18 DBMS_OUTPUT . PUT_LINE (RPAD ( V_EmpData . Empno , 8 )~T k E , , + -> 

| | RPAD (V_EmpData. Ename, 12) | | RPAD (V_EmpData . Job, 

12) | | RPAD (V_EmpData . Deptno, 8 ) | | NVL (TO_CHAR (RPAD% SmpData . MGR, 10)), 'No 
Manager') | | RPAD (V_EmpData . Hiredate, 12) | | RP^)^3^mtoata . Sal , 

12 ) ! | NVL (TO_CHAR (RPAD (V_EmpData . Comm, 12 ) ) ; 

19 END LOOP; p-u + + + + -»- 

20 DBMS_OUTPUT.PUT_LINE (V_RowCount | | % %$sa Processed So Far...'); 

21 CLOSE EmpCursor; 

2 2 * END ; + +. 

SQL> / 'V X \ 

Employees Information j, + + 

::::::: 

EmpNo Ename Job Ha rp t)eptno Mgr Hiredate Sal 

Comm 



7839 KING 4#$&SIDENT 10 No Manager 17 -NOV-81 5000 

-NA- 4 

7698 BLAKE ^ t MANAGER 30 7839 01-MAY-81 2850 

7782 CLARit^l MANAGER 10 7839 09-JUN-81 2450 

-NA- V 

7566 + + fl^IES MANAGER 20 7839 02 -APR- 81 2975 

-NA-^t^-C/ 

7 6541^ JlARTIN SALESMAN 30 7698 28-SEP-81 1250 

1 |%W 

4 ft/ ALLEN SALESMAN 30 7698 20-FEB-81 1600 

1 4.7 74 4 TURNER SALESMAN 30 7698 08-SEP-81 1500 

7900 JAMES CLERK 30 7698 03-DEC-81 950 

-NA- 
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7521 

500 


WARD 


SALESMAN 


30 


7698 


22-FEB-81 


1250 


7902 

-NA- 


FORD 


ANALYST 


20 


7566 


03-DEC-81 


3000 


7369 

-NA- 


SMITH 


CLERK 


20 


7902 


17-DEC-80 


800 


7788 

-NA- 


SCOTT 


ANALYST 


20 


7566 


09-DEC-82 


3000 

1 


7876 

-NA- 


ADAMS 


CLERK 


20 


7788 


12 -JAN- 83 


Cf* 


7934 

-NA- 


MILLER 


CLERK 


10 


7782 


23- JAN-£^# 


1300 




14 Rows Processed So Far. . . 

PL/SQL procedure successfully completed. 
SQL> cl scr 
SQL> ED 

Wrote file afiedt.buf 




1 DECLARE 

2 V_RowCount NUMBER (4) 

3 CURSOR EmpCursor 

4 IS 

5 SELECT * 

6 FROM Emp; 

7 V_EmpData EmpCursor % i°' 

8 BEGIN ^ 

9 OPEN EmpCursor; 

10 DBMS_OUTPUT . PUX_L^W^s4lD ( ' Employees Information' , 80)); 

11 DBMS_OUTPUT.Pgf^LINEjkPAD ( , 8 0,'-')); 

12 DBMS_OUTPUT . PW^%4E(RPAD ( ' Ename ' , 12) | | RPAD ( 'Job' , 12) | | RPAD ( ' Sal ' , 
12) | | RPAD ( ' Comm ' 4 10)4# 

13 DBMS_OUTPyjVuT_LINE (RPAD ( ' - ' , 8 0,'-')); 

1 4 LOOP p# }, | ^ 4, 

15 FETCH ElfcCJrs^r INTO V_EmpData; 

16 EXIT^HElWmpCursor%NOTFOUND; 

17 U ififcgunt := EmpCursor%ROWCOUNT ; 

18 I^fcjSftpData . Job = ' SALESMAN' 

19 ram 

B«is_OUTPUT.PUT_LINE (RPAD (V_EmpData. Ename, 12) | | RPAD (V_EmpData . Job, 
♦^2 fjJkPAD ( V_EmpData . Sal , 12 ) ! | V_EmpData . Comm | | ' Eligible For 
liqpmmission . ' ) ; 

± Z1 ELSE 

+22 DBMS_OUTPUT.PUT_LINE (RPAD (V_EmpData. Ename, 12) | | RPAD (V_EmpData . Job, 
12) | | RPAD ( V_EmpData . Sal , 12) | | 'Sorry! Not Eligible For Commission.'); 

23 END IF; 
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24 END LOOP; 

25 DBMS_OUTPUT . PUT_LINE (V_RowCount | | ' Rows Processed So Far...'); 

2 6 CLOSE EmpCursor; *-H-. 

27* END; ,, % 

SQL> / €*1 \ 

Employees Information & 

....... ^ 

Ename Job Sal Comm -u. \ 



jJ 4 - 1 

KING PRESIDENT 5000 Sorry! Not Eligible ^cifcr<€9|irfe.ssion . 

BLAKE MANAGER 2850 Sorry! Not Eligible %3r g^fimission. 

CLARK MANAGER 2450 Sorry! Not Eligible F5»jr Commission . 

JONES MANAGER 2 975 Sorry ! Not El:mibi^ + For Commission . 

MARTIN SALESMAN 1250 1400 Eligible ftte l, , C E mission . 

ALLEN SALESMAN 1600 300 Eligible .jfH^r^ommission . 

TURNER SALESMAN 1500 0 Eligibl e F tty Commission. 

JAMES CLERK 950 Sorry! •^off^%j_%ible For Commission. 

WARD SALESMAN 1250 500 EApt^j^riFor Commission. 

FORD ANALYST 3000 Sorr^i^^^^Eligible For Commission . 

SMITH CLERK 800 Sotrjy/t'tot Eligible For Commission. 

SCOTT ANALYST 3000 P'Wot Eligible For Commission . 

ADAMS CLERK 1100 Sorrel Not Eligible For Commission . 

MILLER CLERK 1300 i^4 Xt }Borry ! Not Eligible For Commission. 

14 Rows Processed So Far. . . + + 

PL/SQL procedure successful ly Tfcpra^Leted. 

SQL> cl scr 

SQL> ED 

Wrote file afiedt.nrtri 

1 DECLARE . . \ 

2 V_GivQ(iC!j| 1 t^Mp. Job%TYPE := UPPER (RTRIM (LTRIM (’ SGiveJob '))) ; 

3 V_Salli^fesJ Eiffp. Sal%TYPE := 0; 

4 V_JobCouNr NUMBER ( 3 ) := 0; 

5 CUIC^R EmpCursor 

6 

7 iSEMCT * 

0 .|#]-|/fc»©M Emp; 

if C P -EmpPata EmpCur sor%ROWTYPE ; 

i^cj 4 begin 

rl OPEN EmpCursor; 

12 DBMS_OUTPUT.PUT_LINE ( 'Details of Employees With ' | | V_Given Job | ! ' ' ' s 
Designation Are ...'); 
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Name 



13 DBMS_OUTPUT . PUT_LINE ( ' 

.) . 

14 DBMS_OUTPUT . PUT_LINE ( ' 

'll' Annual Salary ' ) ; 

15 DBMS_OUTPUT . PUT_LINE ( ' 

' ) ; 

16 LOOP 

17 FETCH EmpCursor INTO V_EmpData; 

18 EXIT WHEN EmpCur sor%NOTFOUND ; 

19 IF V_EmpData . Job = V_GivenJob 

20 THEN 

21 DBMS_OUTPUT . PUT_LINE (RPAD ( V_EmpData . Ename , 12) | | LPM) 

5) | | LPAD (V_EmpData . Sal * 12, 20)); 



a . Sal , 



22 


V_Sal Invest 


:= V_Sal Invest 


+ V_EmpDat 


23 


V_JobCount : 


:= V_JobCount + 


i; 


24 


ELSE 






25 


NULL; 






26 


END IF; 






27 


END LOOP; 






28 


DBMS_OUTPUT , 


. PUT_LINE ( 'The 


Total Numbe 



' I |V_JobCount | | ' And The Investment is 
29 CLOSE EmpCursor; 

30* END; 

SQL> / 

Enter value for givejob: Clerk + + 4 4+ i- L 
Details of Employees With CLERKig b \ el gnation Are . . . 


+ + Jmnual Salary 

C\-- 




V_Given Job | | 1 ' ' s Are 
Sallnvest) ; 



Name 

JAMES 

SMITH 

ADAMS 

MILLER 



Basic Salary 



950 

800 

1100 

1300 






11400 

9600 

13200 

15600 



The Total Number 4 of G^&K's Are 4 And The Investment is : 4150 
PL/SQL pro su ccessfully completed. 



SQL> / 
Ente 
Deta 

N, 



Enter^v. 






V- 



for givejob: manager 

mployees With MANAGER'S Designation Are... 



Basic Salary 



Annual Salary 






”,T 



2850 34200 

2450 29400 

JONES 2975 35700 

The Total Number of MANAGER'S Are 3 And The Investment is 



8275 
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PL/SQL procedure successfully completed. 
SQL> cl scr 

SQL> DECLARE 

2 CURSOR EmpCursor 

3 IS 

4 SELECT * 

5 FROM Emp; 

6 V_EmpData EmpCursor%ROWTYPE; 

7 BEGIN 

8 OPEN EmpCursor; 

9 FETCH EmpCursor INTO V_EmpData; 

10 WHILE EmpCursor%FOUND 

11 LOOP 

12 DBMS_OUTPUT . PUT_LINE ( V_EmpData . Ename ) ; 

13 FETCH EmpCursor INTO V_EmpData; 

14 END LOOP; 

15 CLOSE EmpCursor; 

16 END 

17 / 

KING 
BLAKE 
CLARK 
JONES 
MARTIN 
ALLEN 
TURNER 
JAMES 
WARD 
FORD 
SMITH 
SCOTT 
ADAMS 
MILLER 



PL/SQL pro ce 



SQL> <RE( 

3 “ K£ 

ECT 




rccessfully completed. 



EmpCursor 



* . I p ROM Emp; 

i+ u "h q 4 V_EmpData EmpCur sor%ROWTYPE ; 



o 



BEGIN 

8 OPEN EmpCursor; 

9 FETCH EmpCursor INTO V_EmpData; 
10 WHILE EmpCur s or %FOUND 
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11 LOOP 

12 DBMS_OUTPUT.PUT_LINE ( 'Record Number 
| | V_EmpData . Ename ) ; 

V_EmpData; 



| | EmpCursor%ROWCOUNT | | 



13 FETCH EmpCursor INTO 

14 END LOOP; 


15 CLOSE EmpCursor; 

16 END; 

17 / 


Record 


Number 


1 


KING 


Record 


Number 


2 


BLAKE 


Record 


Number 


3 


CLARK 


Record 


Number 


4 


JONES 


Record 


Number 


5 


MARTIN 


Record 


Number 


6 


ALLEN 


Record 


Number 


7 


TURNER 


Record 


Number 


8 


JAMES 


Record 


Number 


9 


WARD 


Record 


Number 


10 


FORD 


Record 


Number 


11 


SMITH 


Record 


Number 


12 


SCOTT 


Record 


Number 


13 


ADAMS 


Record 


Number 


14 


MILLER 



PL/SQL procedure successfully 



SQL> ED 
Wrote file 



af iedt . buf 




10 

80, 

11 

12 



Information', 49, 




DECLARE 

V_RowCount NUMBER (4 
CURSOR EmpCursor 
IS 

SELECT * 

FROM Emp; a 

V_EmpData^mbCursor%ROWTYPE ; 

BEGIN 

OPEN Ei^KuJso^; 

DBMS OUTPUT . PUT_LINE (RPAD (LPAD ( 'Employees 

u'^^^StPUT . PUT_LINE (RPAD ('-', 80,'-')); 

uDBMS^OUTPUT . PUT_LINE (RPAD ( ' EmpNo ' , 8) | | RPAD ( 'Ename 
l^fjj.'ktAD ( ' Job ' , 12)| | RPAD ( ' Deptno ' , 8 ) | | RPAD ( ' Mgr ' , 

‘ Of] JkP AD (' Hi redate ' , 12) | | RPAD ( ' Sal ' , 12) | | RPAD ( 'Comm' , 
" S* 4 DBMS_OUTPUT . PUT_LINE (RPAD ( '-' , 80, '-')); 

4 FETCH EmpCursor INTO V_EmpData; 

15 WHILE EmpCursor%FOUND 

16 LOOP 

17 V_RoWCount := EmpCursor%ROWCOUNT ; 



10 ) ) 
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18 DBMS_OUTPUT.PUT_LINE (RPAD ( V_EmpData . Empno , 8) 

| | RPAD (V_EmpData . Ename, 12) | | RPAD (V_EmpData . Job, 

12) | | RPAD (V_EmpData . Dept no, 8) | | NVL (TO_CHAR (RPAD (V_EmpData . MGR, 10)), 'No 
Manager') | | RPAD (V_EmpData . Hiredate, 12) | | RPAD (V_EmpData . Sal , 

12) ! | NVL (TO_CHAR (RPAD (V_EmpData . Comm, 12 ) ) , ' -NA- ' ) ) ; 

19 FETCH EmpCursor INTO V_EmpData; 

20 END LOOP; 

21 DBMS_OUTPUT.PUT_LINE (V_RowCount M ' Rows Processed So Far...' 

22 CLOSE EmpCursor; 

23* END; 

SQL> / 

mp 1 Q y c O 3 

j f o rmat 



EmpNo 

Comm 



Ename 



d 



Job 



Deptno Mgr 





sale3^n\ 

^SA LESMAN 
CLERK 



-NA-l +■ 

SCOTT 

1087 & ADAMS 

934 MILLER 
-NA- 

14 Rows Processed So Far. . . 
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PL/SQL procedure successfully completed. 
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